fac n = foldr (*) 1 [1..n]
biggie = fac 100
str = show biggie
toIntAndAdd = (+) . (\x -> (read (x:[]))::Integer)
main = print $ foldr toIntAndAdd 0 str